Option Explicit
Sub A_Sample053()
    Dim mySht As Worksheet
    Dim myWb As Workbook
    Dim myStr As String
    myStr = "Sheet3"		'wu@W
    Set myWb = Workbooks(1)
    'ǳƨ즹
    Set mySht = myWb.Worksheets(myStr)
    MsgBox mySht.Name
    Set mySht = Nothing	'
    Set myWb = Nothing
End Sub
